
Partial Class Manager_Tags
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Sub UpdateStats(ByVal rows As Integer)
        Me.lblStatus.Text = String.Format("{0} rows updated.", rows)
    End Sub


    Protected Sub btnDeleteTag_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDeleteTag.Click
        UpdateStats(TagLib.Tagging.DeleteTag(Me.txtTag.Text))
    End Sub

    Protected Sub btnDeleteUserTags_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDeleteUserTags.Click
        UpdateStats(TagLib.Tagging.DeleteUserTags(Me.txtUser.Text))
    End Sub

    Protected Sub btnReplaceTag_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnReplaceTag.Click
        UpdateStats(TagLib.Tagging.UpdateTag(Me.txtOldTag.Text, Me.txtNewTag.Text))
    End Sub

    
End Class
